confounders_infection <- c(
"age_at_test_in_months_cat_2", # 3-month interval
"month_when_tested_cat"
)
confounders_ed <- c(
"age_at_test_in_months_cat_2", # 3-month interval
"month_when_tested_cat"
)
confounders_inpatient <- c(
"age_at_test_in_months_cat_2", # 3-month interval
"month_when_tested_cat",
"risk_factor_atleastone"
)
confounders_severe <- c(
"age_at_test_in_months_cat_2", # 3-month interval
"month_when_tested_cat",
"risk_factor_atleastone"
)
confounders_LRTI <- c(
"age_at_test_in_months_cat_2", # 3-month interval
"month_when_tested_cat",
"risk_factor_atleastone"
)
confounders_LRTIhosp <- c(
"age_at_test_in_months_cat_2", # 3-month interval
"month_when_tested_cat",
"risk_factor_atleastone"
)
Comparing:
* Original trial estimates; * Adjusted VE estimated from current
case-control study (uninformative priors); * Adjusted VE estimated from
current case-control study (trial data as informative priors)